home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iconed1a / aboutbox.frm next >
Text File  |  1999-09-24  |  6KB  |  184 lines
  1. VERSION 5.00
  2. Begin VB.Form AboutBox 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About IconWorks"
  5.    ClientHeight    =   2370
  6.    ClientLeft      =   1365
  7.    ClientTop       =   1425
  8.    ClientWidth     =   5640
  9.    ClipControls    =   0   'False
  10.    BeginProperty Font 
  11.       Name            =   "System"
  12.       Size            =   9.75
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "ABOUTBOX.frx":0000
  20.    LinkMode        =   1  'Source
  21.    LinkTopic       =   "Form2"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    PaletteMode     =   1  'UseZOrder
  25.    ScaleHeight     =   2370
  26.    ScaleWidth      =   5640
  27.    Begin VB.PictureBox Pic_ApplicationIcon 
  28.       AutoSize        =   -1  'True
  29.       BorderStyle     =   0  'None
  30.       BeginProperty Font 
  31.          Name            =   "MS Sans Serif"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   700
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   480
  40.       Left            =   255
  41.       Picture         =   "ABOUTBOX.frx":030A
  42.       ScaleHeight     =   480
  43.       ScaleWidth      =   480
  44.       TabIndex        =   4
  45.       Top             =   255
  46.       Width           =   480
  47.    End
  48.    Begin VB.CommandButton Cmd_OK 
  49.       Caption         =   "OK"
  50.       Height          =   360
  51.       Left            =   4350
  52.       TabIndex        =   6
  53.       Top             =   1800
  54.       Width           =   1035
  55.    End
  56.    Begin VB.Line lin_HorizontalLine1 
  57.       BorderWidth     =   2
  58.       X1              =   975
  59.       X2              =   5010
  60.       Y1              =   1425
  61.       Y2              =   1425
  62.    End
  63.    Begin VB.Label Lbl_IconWorks 
  64.       Caption         =   "IconWorks"
  65.       BeginProperty Font 
  66.          Name            =   "MS Sans Serif"
  67.          Size            =   18
  68.          Charset         =   0
  69.          Weight          =   700
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       Height          =   450
  75.       Left            =   990
  76.       TabIndex        =   1
  77.       Top             =   270
  78.       Width           =   1920
  79.    End
  80.    Begin VB.Label Lbl_Version 
  81.       Caption         =   "Version 1.00"
  82.       BeginProperty Font 
  83.          Name            =   "MS Sans Serif"
  84.          Size            =   9.75
  85.          Charset         =   0
  86.          Weight          =   700
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       Height          =   240
  92.       Left            =   990
  93.       TabIndex        =   2
  94.       Top             =   840
  95.       Width           =   1470
  96.    End
  97.    Begin VB.Label Lbl_Microsoft 
  98.       Caption         =   "Microsoft Visual Basic for Windows 3.00"
  99.       BeginProperty Font 
  100.          Name            =   "MS Sans Serif"
  101.          Size            =   9.75
  102.          Charset         =   0
  103.          Weight          =   700
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       Height          =   240
  109.       Left            =   990
  110.       TabIndex        =   3
  111.       Top             =   1110
  112.       Width           =   4365
  113.    End
  114.    Begin VB.Label Lbl_Info 
  115.       BeginProperty Font 
  116.          Name            =   "MS Sans Serif"
  117.          Size            =   8.25
  118.          Charset         =   0
  119.          Weight          =   700
  120.          Underline       =   0   'False
  121.          Italic          =   0   'False
  122.          Strikethrough   =   0   'False
  123.       EndProperty
  124.       Height          =   600
  125.       Left            =   1005
  126.       TabIndex        =   5
  127.       Top             =   1545
  128.       Width           =   1875
  129.    End
  130.    Begin VB.Label Lbl_InfoValues 
  131.       BeginProperty Font 
  132.          Name            =   "MS Sans Serif"
  133.          Size            =   8.25
  134.          Charset         =   0
  135.          Weight          =   700
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       Height          =   600
  141.       Left            =   2910
  142.       TabIndex        =   0
  143.       Top             =   1545
  144.       Width           =   1410
  145.    End
  146. End
  147. Attribute VB_Name = "AboutBox"
  148. Attribute VB_GlobalNameSpace = False
  149. Attribute VB_Creatable = False
  150. Attribute VB_PredeclaredId = True
  151. Attribute VB_Exposed = False
  152. #If Win32 Then
  153. #Else
  154. Private Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long
  155. Private Declare Function GetWinFlags Lib "Kernel" () As Long
  156. Const WF_STANDARD = &H10
  157. Const WF_ENHANCED = &H20
  158. Const WF_80x87 = &H400
  159. #End If
  160.  
  161. Private Sub Cmd_OK_Click()
  162.     Unload AboutBox
  163. End Sub
  164.  
  165. Private Sub Form_Load()
  166. Dim WinFlags As Long
  167. Dim Mode As String, Processor As String
  168.     ' Dialog Boxes should only have Move and Close items
  169.     ' in their System menus', so remove the others.
  170.     Remove_Items_From_Sysmenu AboutBox
  171.     ' Center the AboutBox on the screen
  172.      Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  173.     ' Get current Windows configuration
  174. #If Win32 Then
  175. #Else
  176.     WinFlags = GetWinFlags()
  177.     If WinFlags And WF_ENHANCED Then Mode = "386 Enhanced Mode" Else Mode = "Standard Mode"
  178.     Lbl_Info.Caption = Mode + CRLF + "Free Memory:" + CRLF + "Math Co-processor:"
  179.     If WinFlags And WF_80x87 Then Processor = "Present" Else Processor = "None"
  180.     Lbl_InfoValues.Caption = CRLF + Format$(GetFreeSpace(0) \ 1024) + " KB" + CRLF + Processor
  181. #End If
  182. End Sub
  183.  
  184.